home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / 21.BAS (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  10.3 KB  |  339 lines
  1. 1  '9/24/82
  2. 10  SCREEN 0,0,0:KEY OFF:WIDTH 80:LOCATE ,,0
  3. 20  FOR A=1 TO 9:ON KEY(A) GOSUB 30: KEY(A) ON:NEXT:GOTO 40
  4. 30  RETURN
  5. 40  ON KEY(10) GOSUB 2900
  6. 50  DEFSTR Z:DIM DK(52),CDSU(52),LIN$(5,13)
  7. 60  XX=1:YY=1:GOSUB 2430:GOSUB 3000
  8. 70  GOSUB 2070:M$="$$#,###.##":CSH=2000
  9. 80  IF CSH<=0 AND PS<>1 THEN 3300
  10. 90  IF CSH>10000 THEN 3340
  11. 100  GOSUB 2690:GOSUB 3260:GOSUB 2940:TS=0:HOLD=0:GOSUB 2620
  12. 110  LOCATE 24,1:PRINT SPC(66);:LOCATE 24,20
  13. 120  LOCATE 23,1:PRINT SPC(62)
  14. 130  IF PS THEN PS=0:LOCATE 23,33:PRINT"The Bet Stands";:COLOR 15,0:LOCATE 6,69:PRINT USING M$;BT*100:COLOR 3,0:GOTO 150
  15. 140  GOSUB 1050
  16. 150  CD=CD+1:IF CD>40 THEN GOSUB 2070:GOTO 150
  17. 160  A=1:B=1:CP(1)=DK(CD):HOLD=CD:CD=0:GOSUB 2220:CD=HOLD
  18. 170  A=8:B=1:CD=CD+1:PYR(1)=DK(CD):GOSUB 2220
  19. 180  A=1:B=12:CD=CD+1:CP(2)=DK(CD):GOSUB 2220
  20. 190  A=8:B=12:CD=CD+1:PYR(2)=DK(CD):GOSUB 2220
  21. 200  IF PYR(1)>9 THEN PYR(1)=10
  22. 210  IF CP(1)>9 THEN CP(1)=10
  23. 220  IF CP(2)>9 THEN CP(2)=10
  24. 230  IF CP(1)=10 AND CP(2)=1 THEN BJK1=1:GOTO 710
  25. 240  IF CP(2)=10 AND CP(1)=1 THEN BJK1=1:GOTO 710
  26. 250  IF PYR(2)>9 THEN PYR(2)=10
  27. 260  IF PYR(1)<>PYR(2) OR SPF1 THEN 300
  28. 270  COLOR 15,0:LOCATE 24,22:PRINT"Do You Wish To Split Your Hand? <Y/N>";
  29. 280  COLOR 3,0:GOSUB 1870:IF NO THEN 300
  30. 290  GOSUB 1420:IF NSP THEN 300 ELSE 190
  31. 300  NSP=0:GOSUB 2000:IF PS THEN 710
  32. 310  IF BJK1 THEN 710
  33. 320  IF BJK2 THEN 710
  34. 330  GOSUB 1300
  35. 340  LOCATE 24,1:PRINT SPC(62);:COLOR 15,0
  36. 350  LOCATE 24,19:PRINT"     Hit, Stand Or Double Down? <H/S/D>     ";
  37. 360  COLOR 3,0:GOSUB 1930:IF HIT THEN 500
  38. 370  IF STD THEN 550
  39. 380  IF CSH-BT*100>=0 THEN CSH=CSH-BT*100:BT=BT*2:GOSUB 3280:GOTO 420
  40. 390  LOCATE 24,1:PRINT SPC(62);:LOCATE 24,20:COLOR 15,0
  41. 400  PRINT"You Don't Have Enough Money To Double Down";
  42. 410  FOR D=1 TO 4000:NEXT:GOTO 460
  43. 420  A=8:TS=1:B=12+TS*11:CD=CD+1:LOCATE 6,69:COLOR 15,0:PRINT USING M$;BT*100:COLOR 3,0:PYR(TS+2)=DK(CD)
  44. 430  GOSUB 2220:GOSUB 1300
  45. 440  IF PYRBTD THEN 710
  46. 450  GOTO 550
  47. 460  LOCATE 24,1:PRINT SPC(79);:COLOR 15,0
  48. 470  LOCATE 24,20:PRINT"You Have"PYRHD"Showing.  Hit Or Stand? <H/S>";
  49. 480  GOSUB 1930:IF HIT THEN 500
  50. 490  IF STD THEN 550 ELSE 480
  51. 500  TS=TS+1:CD=CD+1:B=12+TS*11:PYR(TS+2)=DK(CD)
  52. 510  GOSUB 2220:GOSUB 1300
  53. 520  IF PYRHD=21 THEN 550
  54. 530  IF PYRBTD THEN 710
  55. 540  GOTO 460
  56. 550  TS=0
  57. 560  A=1:SWAP CD,HOLD:B=1:GOSUB 2220:SWAP HOLD,CD
  58. 570  CPHD=0
  59. 580  FOR C=1 TO TS+2
  60. 590   IF CP(C)>9 THEN CP(C)=10
  61. 600   CPHD=CPHD+CP(C)
  62. 610  NEXT
  63. 620  FOR C=1 TO TS+2
  64. 630   IF CP(C)<>1 THEN 660
  65. 640   IF CPHD+10=21 THEN CPHD=CPHD+10:GOTO 710
  66. 650   IF CPHD+10<21 THEN CPHD=CPHD+10
  67. 660  NEXT
  68. 670  IF CPHD>16 THEN 720
  69. 680  FOR QQ=1 TO 1500:NEXT
  70. 690  TS=TS+1:CD=CD+1:CP(TS+2)=DK(CD):A=1:B=12+TS*11
  71. 700  GOSUB 2220:GOTO 570
  72. 710  A=1:SWAP CD,HOLD:B=1:GOSUB 2220:SWAP HOLD,CD
  73. 720  IF PS THEN 800
  74. 730  IF BJK1 THEN 830
  75. 740  IF BJK2 THEN 850
  76. 750  IF PYRBTD THEN 880
  77. 760  IF CPHD>21 THEN 900
  78. 770  IF CPHD=PYRHD THEN 800
  79. 780  IF CPHD>PYRHD THEN 930
  80. 790  GOTO 950
  81. 800  PS=1
  82. 810  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,31
  83. 820  PRINT"Push To Next Hand!";::GOTO 980
  84. 830  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,25
  85. 840  PRINT"Dealer Has Blackjack!  You Lose.";:GOTO 980
  86. 850  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,22
  87. 860  PRINT"You Have Blackjack! Dealer Pays Double.";
  88. 870  CSH=CSH+BT*300:GOSUB 3280:GOTO 980
  89. 880  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,29
  90. 890  PRINT"You Busted! Dealer Wins.";:GOTO 980
  91. 900  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,30
  92. 910  PRINT"Dealer Busted! You Win.";
  93. 920  CSH=CSH+BT*200:GOSUB 3280:GOTO 980
  94. 930  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,21
  95. 940  PRINT"Dealer Has"CPHD". You Have"PYRHD". Dealer Wins";:GOTO 980
  96. 950  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,23
  97. 960  PRINT"Dealer Has"CPHD". You Have"PYRHD". You Win.";
  98. 970  CSH=CSH+BT*200:GOSUB 3280
  99. 980  LOCATE 24,1:PRINT SPC(66);
  100. 990  COLOR 15,0:LOCATE 24,27:PRINT" Strike Any Key To Continue ";
  101. 1000  IF INKEY$="" THEN 1000 ELSE LOCATE 6,69:COLOR 15,0:PRINT USING M$;0:LOCATE 7,68:PRINT SPC(11):LOCATE 8,69:PRINT SPC(11):LOCATE 24,1:PRINT SPC(62);:COLOR 3,0
  102. 1010  SPF1=0:IF SPF AND PYRBTD THEN SPF=0:PYRHD=PYRHD2:PYRBTD=0:GOTO 570
  103. 1020  SPF1=0:IF SPF THEN SPF=0:PYRHD=PYRHD2:GOTO 760
  104. 1030  LOCATE 6,69:COLOR 15,0:PRINT USING M$;0:LOCATE 24,1:PRINT SPC(62);:COLOR 3,0
  105. 1040  GOTO 80
  106. 1050  LOCATE 23,1:PRINT SPC(66);:LOCATE 24,1:PRINT SPC(66);
  107. 1060  COLOR 15,0:LOCATE 23,22:PRINT"Place Your Bet Please. How Many Chips,";
  108. 1070  LOCATE 24,22:PRINT"From 1 to"CSH/100"?  Then Strike Enter Key.  ";:COLOR 3,0:
  109. 1080  Z="":ZH=""
  110. 1090  DEF SEG:POKE 106,0:IF INKEY$<>"" THEN 1090
  111. 1095  DEF SEG=&H40:POKE &H17,(PEEK(&H17) OR 96)
  112. 1100  Z=INKEY$:IF Z="" THEN 1100
  113. 1110  IF Z<>CHR$(8) AND RIGHT$(Z,1)<>CHR$(75) THEN 1140
  114. 1120  IF ZH="" THEN 1100
  115. 1130  PRINT CHR$(29)" "CHR$(29);:ZH=LEFT$(ZH,LEN(ZH)-1):GOTO 1100
  116. 1140  IF Z=CHR$(13) THEN 1180
  117. 1150  IF Z<"0" OR Z>"9" THEN 1100
  118. 1160  IF LEN(ZH)>3 THEN 1100
  119. 1170  ZH=ZH+Z:PRINT Z;:GOTO 1100
  120. 1180  BT=VAL(ZH)
  121. 1190  COLOR 15,0:LOCATE 5,69:PRINT"The Bet Is"
  122. 1200  LOCATE 6,69:PRINT USING M$;BT*100:COLOR 3,0
  123. 1210  LOCATE 23,1:PRINT SPC(66);
  124. 1220  IF BT<1 THEN 1270
  125. 1230  IF BT<=CSH/100 THEN CSH=CSH-BT*100:GOSUB 3280:GOTO 2620
  126. 1240  LOCATE 23,1:PRINT SPC(66);:LOCATE 24,1:PRINT SPC(66);:LOCATE 24,20
  127. 1250  PRINT"You Don't Have That Many Chips. Please Try Again.";
  128. 1260  FOR D=1 TO 3000:NEXT:LOCATE 24,1:PRINT SPC(79);:GOTO 1050
  129. 1270  LOCATE 23,1:PRINT SPC(66);:LOCATE 24,1:PRINT SPC(66);:LOCATE 24,20
  130. 1280  PRINT"Please Bet An Amount Greater Than Zero.";
  131. 1290  GOTO 1260
  132. 1300  PYRHD=0:PYRBTD=0
  133. 1310  FOR C=1 TO TS+2
  134. 1320   IF PYR(C)>9 THEN PYR(C)=10
  135. 1330   PYRHD=PYRHD+PYR(C)
  136. 1340  NEXT
  137. 1350  IF PYRHD>21 THEN PYRBTD=1:RETURN
  138. 1360  FOR C=1 TO TS+2
  139. 1370   IF PYR(C)<>1 THEN 1400
  140. 1380   IF PYRHD+10=21 THEN PYRHD=21:RETURN
  141. 1390   IF PYRHD+10<21 THEN PYRHD=PYRHD+10
  142. 1400  NEXT
  143. 1410  RETURN
  144. 1420  IF CSH-BT*100>=0 THEN 1460
  145. 1430  LOCATE 24,1:PRINT SPC(79);:LOCATE 24,20
  146. 1440  PRINT"You Don't Have Enough Money To Split Your Hand.";
  147. 1450  NSP=1:FOR F=1 TO 3000:NEXT:LOCATE 24,1:PRINT SPC(79);:RETURN
  148. 1460  SPF1=1:SWAP PYR(1),HOLD(1):PYR(1)=PYR(2)
  149. 1470  COLOR 15,0:LOCATE 7,68:PRINT"Bottom Hand":LOCATE 8,69:PRINT USING M$;BT*100:COLOR 3,0
  150. 1480  FOR D=8 TO 15:LOCATE D,12:PRINT SPC(11);:NEXT
  151. 1490  CSH=CSH-BT*100:GOSUB 3280
  152. 1500  A=15:B=1:GOSUB 2220
  153. 1510  CD=CD+1:B=12:PYR(2)=DK(CD):GOSUB 2220
  154. 1520  GOSUB 2000:IF BJK2 THEN 1750
  155. 1530  GOSUB 1300:TS=0
  156. 1540  LOCATE 24,1:PRINT SPC(79);:COLOR 15,0
  157. 1550  LOCATE 24,23:PRINT"Hit,Stand, Or Double Down? <H/S/D>";
  158. 1560  GOSUB 1930:IF HIT THEN 1670
  159. 1570  IF STD THEN 1740
  160. 1580  IF CSH-BT*100>=0 THEN 1620
  161. 1590  LOCATE 24,1:PRINT SPC(79);:LOCATE 24,20
  162. 1600  PRINT"You Don't Have Enough Money To Double Down";
  163. 1610  FOR F=1 TO 3000:NEXT:GOTO 1710
  164. 1620  CSH=CSH-BT*100:BT2=BT*2:LOCATE 8,69:COLOR 15,0:PRINT USING M$;BT2*100:COLOR 3,0:GOSUB 3280
  165. 1630  A=15:TS=1:B=12+TS*11:CD=CD+1:PYR(TS+2)=DK(CD)
  166. 1640  GOSUB 2220:GOSUB 1300
  167. 1650  IF PYRBTD THEN 1780
  168. 1660  GOTO 1800
  169. 1670  TS=TS+1:CD=CD+1:B=12+TS*11:PYR(TS+2)=DK(CD)
  170. 1680  GOSUB 2220:GOSUB 1300
  171. 1690  IF PYRHD=21 THEN 1800
  172. 1700  IF PYRBTD THEN 1780
  173. 1710  LOCATE 24,1:PRINT SPC(79);:COLOR 15,0
  174. 1720  LOCATE 24,20:PRINT"You Have"PYRHD"Showing. Hit Or Stand? <H/S>";
  175. 1730  GOSUB 1930:IF HIT THEN 1670
  176. 1740  IF STD THEN 1800 ELSE 1730
  177. 1750  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,20
  178. 1760  PRINT"You Have Blackjack! Dealer Pays Double.";
  179. 1770  CSH=CSH+BT*300:GOSUB 3280:GOTO 1810
  180. 1780  LOCATE 23,1:PRINT SPC(66);:LOCATE 23,20
  181. 1790  PRINT"You Busted! Dealer Wins.";:GOTO 1810
  182. 1800  SPF=1
  183. 1810  SWAP PYR(1),HOLD(1):TS=0
  184. 1820  PYRHD2=PYRHD
  185. 1830  LOCATE 24,1:PRINT SPC(79);
  186. 1840  COLOR 15,0:LOCATE 24,27:PRINT" Strike Any Key To Continue ";:COLOR 3,0
  187. 1850  LOCATE 23,1:PRINT SPC(66)
  188. 1860  IF INKEY$="" THEN 1860 ELSE LOCATE 24,1:PRINT SPC(62);:RETURN
  189. 1870  DEF SEG:POKE 106,0
  190. 1880  IF INKEY$<>"" THEN 1880
  191. 1890  Z=INKEY$
  192. 1900  IF Z="Y" OR Z="y" THEN YES=1:NO=0:RETURN
  193. 1910  IF Z="N" OR Z="n" THEN YES=0:NO=1:RETURN
  194. 1920  GOTO 1890
  195. 1930  DEF SEG:POKE 106,0:IF INKEY$<>"" THEN 1930
  196. 1940  HIT=0:STD=0
  197. 1950  Z=INKEY$
  198. 1960  IF Z="H" OR Z="h" THEN HIT=1:RETURN
  199. 1970  IF Z="S" OR Z="s" THEN STD=1:RETURN
  200. 1980  IF Z="D" OR Z="d" THEN RETURN
  201. 1990  GOTO 1940
  202. 2000  BJK1=0:BJK2=0:PS=0
  203. 2010  IF CP(1)=1 AND CP(2)>9 THEN BJK1=1
  204. 2020  IF CP(1)>9 AND CP(2)=1 THEN BJK1=1
  205. 2030  IF PYR(1)=1 AND PYR(2)>9 THEN BJK2=1
  206. 2040  IF PYR(1)>9 AND PYR(2)=1 THEN BJK2=1
  207. 2050  IF BJK1 AND BJK2 THEN PS=1
  208. 2060  RETURN
  209. 2070  LOCATE 2,28:PRINT"One Moment Please While
  210. 2080  LOCATE 3,30:PRINT"I Shuffle The Deck
  211. 2090  ERASE DK:DIM DK(52)
  212. 2100  FOR A=1 TO 13
  213. 2110   RANDOMIZE VAL(RIGHT$(TIME$,2))*RND*RND
  214. 2120   FOR C=1 TO 4
  215. 2130     B=FIX(RND*52)+1
  216. 2140     ABC=RND*RND*RND*RND*RND*(ABC+2)
  217. 2150     IF DK(B)<>0 THEN 2130
  218. 2160     DK(B)=A:CDSU(B)=C
  219. 2170   NEXT C
  220. 2180  NEXT A
  221. 2190  LOCATE 2,1:PRINT SPC(66)
  222. 2200  LOCATE 3,1:PRINT SPC(66)
  223. 2210  CD=0:RETURN
  224. 2220  COLOR 3,0
  225. 2230  LOCATE   A,B:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE";
  226. 2240  LOCATE A+1,B:PRINT"OPEN         OPEN";
  227. 2250  LOCATE A+2,B:PRINT"OPEN         OPEN";
  228. 2260  LOCATE A+3,B:PRINT"OPEN         OPEN";
  229. 2270  LOCATE A+4,B:PRINT"OPEN         OPEN";
  230. 2280  LOCATE A+5,B:PRINT"OPEN         OPEN";
  231. 2290  LOCATE A+6,B:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD";
  232. 2300  COLOR 6,0
  233. 2310  SOUND 25000,0.01:SOUND 37,0
  234. 2320  LOCATE A+1,B+1:PRINT LIN$(1,DK(CD));
  235. 2330  LOCATE A+2,B+1:PRINT LIN$(2,DK(CD));
  236. 2340  IF DK(CD)<>1 THEN 2360
  237. 2350  LOCATE A+3,B+5:PRINT SU$(CDSU(CD));:GOTO 2370
  238. 2360  LOCATE A+3,B+1:PRINT LIN$(3,DK(CD));
  239. 2370  LOCATE A+4,B+1:PRINT LIN$(4,DK(CD));
  240. 2380  LOCATE A+5,B+1:PRINT LIN$(5,DK(CD));
  241. 2390  LOCATE A+2,B+1:PRINT SU$(CDSU(CD));
  242. 2400  LOCATE A+4,B+9:PRINT SU$(CDSU(CD));
  243. 2410  COLOR 3,0
  244. 2420  RETURN
  245. 2430  FOR A=0 TO 13:FOR B=1 TO 5:READ LIN$(B,A):NEXT:NEXT
  246. 2440  FOR A=1 TO 4:READ SU$(A):NEXT
  247. 2450  HOLD=0
  248. 2460  RETURN
  249. 2470  DATA "XXXXXXXXX","XXXXXXXXX","XXXXXXXXX","XXXXXXXXX","XXXXXXXXX"
  250. 2480  DATA "A        ","         ","         ","         ","        A"
  251. 2490  DATA "2   POINT    ","         ","         ","         ","    POINT   2"
  252. 2500  DATA "3   POINT    ","         ","    POINT    ","         ","    POINT   3"
  253. 2510  DATA "4 POINT   POINT  ","         ","         ","         ","  POINT   POINT 4"
  254. 2520  DATA "5 POINT   POINT  ","         ","    POINT    ","         ","  POINT   POINT 5"
  255. 2530  DATA "6 POINT   POINT  ","         ","  POINT   POINT  ","         ","  POINT   POINT 6"
  256. 2540  DATA "7 POINT   POINT  ","    POINT    ","  POINT   POINT  ","         ","  POINT   POINT 7"
  257. 2550  DATA "8 POINT   POINT  ","    POINT    ","  POINT   POINT  ","    POINT    ","  POINT   POINT 8"
  258. 2560  DATA "9 POINT   POINT  ","  POINT   POINT  ","    POINT    ","  POINT   POINT  ","  POINT   POINT 9"
  259. 2570  DATA "10POINT   POINT  ","  POINT <0xDF!> POINT  ","         ","  POINT   POINT  ","  POINT <0xDF!> POINT10"
  260. 2580  DATA "J        ","         ","         ","         ","        J"
  261. 2590  DATA "Q        ","         ","         ","         ","        Q"
  262. 2600  DATA "K        ","         ","         ","         ","        K"
  263. 2610  DATA "<UNK! {0003}>","<UNK! {0004}>","<UNK! {0005}>","<UNK! {0006}>"
  264. 2620  COLOR 10:H=CSH/100:H1=0
  265. 2630  IF H>10 THEN H1=H1+1:H=H-10:GOTO 2630
  266. 2640  FOR F=13 TO 23:LOCATE F,68:PRINT SPC(11):NEXT
  267. 2650  FOR F=23 TO 24-H STEP-1:LOCATE F,68:PRINT STRING$(3,223);:NEXT
  268. 2660  COLOR 12:IF H1>10 THEN HH=10 ELSE HH=H1
  269. 2670  FOR F=23 TO 24-HH STEP-1:LOCATE F,74:PRINT STRING$(5,223);:NEXT
  270. 2680  COLOR 3,0:RETURN
  271. 2690  FOR D=1 TO 22:LOCATE D,1:PRINT STRING$(66,32):NEXT:RETURN
  272. 2700  G1=BT:G2=0
  273. 2710  IF G1>9 THEN G2=G2+1:G1=G1-10:GOTO 2710
  274. 2720  F2=14+P*25
  275. 2730  F=0
  276. 2740  IF F=G2 THEN 2810
  277. 2750  FOR F1=18 TO 16 STEP-1
  278. 2760   IF F=G2 THEN 2810 ELSE F=F+1
  279. 2770   LOCATE F1,5+F2:PRINT STRING$(5,223);
  280. 2780  NEXT F1
  281. 2790  F2=F2+6
  282. 2800  GOTO 2740
  283. 2810  F2=F2+6
  284. 2820  F=0
  285. 2830  IF F=G1 THEN RETURN
  286. 2840  FOR F1=18 TO 16 STEP-1
  287. 2850   IF F=G1 THEN 2880 ELSE F=F+1
  288. 2860   LOCATE F1,5+F2:PRINT STRING$(3,223);
  289. 2870  NEXT F1
  290. 2880  F2=F2+4
  291. 2890  GOTO 2830
  292. 2900  KEY(10) OFF:XX=CSRLIN:YY=POS(0):LOCATE 25,1:PRINT SPC(79);
  293. 2910  COLOR 15,0:LOCATE 25,22:PRINT"Do You Wish To Leave This Game? <Y/N>";:COLOR 3,0
  294. 2920  GOSUB 1870
  295. 2930  IF YES THEN 2990
  296. 2940  LOCATE 25,1:PRINT SPC(60);
  297. 2950  LOCATE 25,24:COLOR 0,7:PRINT" Strike <F10> To Leave This Game ";:COLOR 3,0
  298. 2960  LOCATE 25,67:PRINT" 100's 1000's";
  299. 2970  LOCATE XX,YY,0:Z=""
  300. 2980  KEY(10) ON:RETURN
  301. 2990  RUN"MENU
  302. 3000  CLS:COLOR 6,0
  303. 3010  LOCATE 1,1:PRINT STRING$(80,219)
  304. 3020  FOR A=2 TO 22:LOCATE A,1:PRINT"CSRLIN":LOCATE A,80:PRINT"CSRLIN":NEXT
  305. 3030  LOCATE 23,1:PRINT STRING$(80,219);
  306. 3040  LOCATE 3,19:COLOR 11,0:PRINT"F R I E N D L Y W A R E   B L A C K J A C K
  307. 3050  COLOR 15,0:LOCATE 8,23:PRINT"Would You Like Instructions? <Y/N>"
  308. 3060  Z=INKEY$:IF Z="" THEN 3060
  309. 3070  IF Z="N" OR Z="n" THEN CLS:RETURN
  310. 3080  IF Z<>"Y" AND Z<>"y" THEN 3060
  311. 3090  COLOR 7,0:LOCATE 6,20:PRINT  "In the game of Blackjack, a standard deck
  312. 3100  LOCATE 7,20:PRINT  "of cards is used.   The computer (dealer)
  313. 3110  LOCATE 8,20:PRINT  "will deal  two  cards face up to you  and
  314. 3120  LOCATE 9,20:PRINT  "two cards to himself, one face up and the
  315. 3130  LOCATE 10,20:PRINT"other face down.
  316. 3140  LOCATE 11,20:PRINT"The object is to come as close to twenty-
  317. 3150  LOCATE 12,20:PRINT"one  (21)  as possible without  `busting'
  318. 3160  LOCATE 13,20:PRINT"by going over twenty-one. Aces can count
  319. 3170  LOCATE 14,20:PRINT"as one or eleven,face cards are ten, and
  320. 3180  LOCATE 15,20:PRINT"all other cards are face value.  You may
  321. 3190  LOCATE 16,20:PRINT"take a HIT (another card to better  your
  322. 3200  LOCATE 17,20:PRINT"hand), STAND  (play the cards you have),
  323. 3210  LOCATE 18,20:PRINT"or DOUBLE DOWN (double your bet and take
  324. 3220  LOCATE 19,20:PRINT"one card immediatly after the deal). All
  325. 3230  LOCATE 20,20:PRINT"ties are pushes.
  326. 3240  LOCATE 25,27:COLOR 15,0:PRINT"Strike Any Key To Continue";
  327. 3250  Z=INKEY$:IF Z="" THEN 3250 ELSE CLS:RETURN
  328. 3260  COLOR 15,0
  329. 3270  LOCATE 2,71:PRINT"You Have";
  330. 3280  COLOR 15,0:LOCATE 3,69:PRINT USING "$$#,###.##";CSH
  331. 3290  COLOR 3,0:RETURN
  332. 3300  CLS
  333. 3310  LOCATE 5,23:PRINT"You Have Lost  All  Of  Your Money!"
  334. 3320  LOCATE 7,23:PRINT"Would You Like To Play Again? <Y/N>";
  335. 3330  GOSUB 1870:IF NO THEN RUN"menu" ELSE GOTO 70
  336. 3340  CLS
  337. 3350  LOCATE 5,29:COLOR 31,0:PRINT"You Broke The Bank !!!":COLOR 3,0: FOR F=1 TO 20:SOUND 500,1:SOUND 200,1:SOUND 150,1:NEXT
  338. 3360  GOTO 3320
  339.